home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
Recent1
/
Filer4_01.lha
/
Filer
/
Rexx
/
Upload.filer
< prev
next >
Wrap
Text File
|
1995-04-02
|
1KB
|
81 lines
/*
$VER: Upload.filer 1.2 (2.4.95)
Author:
Matthias Scheler (tron@lyssa.owl.de)
Function:
All selected files in the active directory listview will be uploaded
via Olaf `Olsen' Barthel's Term
History:
1.2 removed unnecessary ADDRESS 'FilerRexx'
Requires:
Term 4.1 or newer up and running
Call:
Upload
Example for "Filer.RC":
BUTTON ...,...,"Upload","Upload"
*/
OPTIONS RESULTS
IF ~SHOW('Ports','TERM') THEN
DO
ALERTBOX 'Term is not running.'
EXIT 5
END
GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT
LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=RESULT
PANEL OFF
'STATUS Preparing upload via Term ...'
ADDRESS 'TERM' 'CLEAR UPLOAD'
DoIt=0
GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
GETNAME Index
Data=RESULT
Name=SUBSTR(Data,2)
IF LEFT(Data,1)="f" THEN
DO
IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
ELSE SourceName=SourceDir||"/"||Name
ADDRESS 'TERM' 'ADDITEM TO upload NAME '||SourceName
TOGGLEENTRY Index
DoIt=1
END
END
IF DoIt THEN
DO
'STATUS Uploading via Term ...'
ADDRESS 'TERM' 'WINDOW main FRONT ACTIVATE'
ADDRESS 'TERM' 'SENDFILE MODE Binary'
END
'STATUS Operation finished !'
PANEL ON
UNLOCKFILER Key